home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / CTRSL.z / CTRSL
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCTTTTRRRRSSSSLLLL((((3333FFFF))))                                                            CCCCTTTTRRRRSSSSLLLL((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CTRSL   - CTRSL solves systems of the form
  10.  
  11.         T * X = B or
  12.         CTRANS(T) * X = B
  13.  
  14.      where T is a triangular matrix of order N.  Here CTRANS(T) denotes the
  15.      conjugate transpose of the matrix T.
  16.  
  17.  
  18. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  19.       SUBROUTINE CTRSL(T,LDT,N,B,JOB,INFO)
  20.  
  21. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  22.      On Entry
  23.  
  24.      TTTT COMPLEX(LDT,N)
  25.         T contains the matrix of the system.  The zero
  26.         elements of the matrix are not referenced, and
  27.         the corresponding elements of the array can be
  28.         used to store other information.
  29.  
  30.      LLLLDDDDTTTT INTEGER
  31.         LDT is the leading dimension of the array T.
  32.  
  33.      NNNN INTEGER
  34.         N is the order of the system.
  35.  
  36.      BBBB COMPLEX(N).
  37.         B contains the right hand side of the system.
  38.  
  39.      JJJJOOOOBBBB INTEGER
  40.         JOB specifies what kind of system is to be solved.
  41.         If JOB is
  42.         00   solve T*X = B, T lower triangular,
  43.         01   solve T*X = B, T upper triangular,
  44.         10   solve CTRANS(T)*X = B, T lower triangular,
  45.         11   solve CTRANS(T)*X = B, T upper triangular.  On Return
  46.  
  47.      BBBB B contains the solution, if INFO .EQ. 0.
  48.         Otherwise B is unaltered.
  49.  
  50.      IIIINNNNFFFFOOOO INTEGER
  51.         INFO contains zero if the system is nonsingular.
  52.         Otherwise INFO contains the index of
  53.         the first zero diagonal element of T.  LINPACK.  This version dated
  54.      08/14/78 .  G. W. Stewart, University of Maryland, Argonne National Lab.
  55.      Subroutines and Functions BLAS CAXPY,CDOTC Fortran
  56.      ABS,AIMAG,CONJG,MOD,REAL
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.